% 创建时间：2025-06-22 11:43:59
% 作者：兪馳
clc;
clear;
A=[-7,2,0,-1;
    1,-4,2,1;
    2,-1,-6,-1;
    -1,-1,0,-4];
A1=sqrtm(A),
A1^2,
A2=A^(1/2),
A2^2,
% A3a=funm(A,@sqrt)%这句代码已经失效了

syms x;
A4=funmsym(sym(A),sqrt(x),x),
simplify(A4^2),
A5=-A4
latex(A4)